home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dtp / musiktex / macros+inputs / musicsty.tex < prev    next >
Text File  |  1995-09-20  |  13KB  |  369 lines
  1. %
  2. % This is Musicsty from MusicTeX
  3. \message{Version 5.14 -- September 20th, 1995}%
  4. %
  5. \edef\catcodeat{\the\catcode`\@}\catcode`\@=11
  6. \edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
  7. \edef\catcode@lt{\the\catcode`\<}\catcode`\<=12
  8. \def\makeatletter{\catcode`\@=11}
  9. \def\makeatother{\catcode`\@=12}
  10. %
  11. % non musical procedures used in typesetting the non-musical
  12. % texts together with musictex
  13. %
  14. \def\fontid{\fonthdg\fonthdge}
  15. %
  16. % eight point fonts
  17. %
  18. \font\eightrm=\fontid r8
  19. \font\eighti=cmmi8 \skewchar\eighti='177
  20. \font\eightsy=cmsy8 \skewchar\eightsy='60
  21. \font\eightbf=\fontid bx8
  22. \font\eightsl=\fontid sl8
  23. \font\eightit=\fontid ti8
  24. \font\eighttt=\fontid tt8
  25. %
  26. % nine point fonts
  27. %
  28. \font\ninerm=\fontid r9
  29. \font\ninei=cmmi10 scaled 900 \skewchar\ninei='177
  30. \font\ninesy=cmsy10 scaled 900 \skewchar\ninesy='60
  31. \font\ninebf=\fontid bx9
  32. \font\ninesl=\fontid sl9
  33. \font\nineit=\fontid ti9
  34. \font\ninett=\fontid tt9
  35. %
  36. % twelve point fonts
  37. %
  38. \font\twlrm=\fontid r12
  39. \font\twli=cmmi12 \skewchar\twli='177
  40. \font\twlsy=cmsy10 scaled \magstep1 \skewchar\twlsy='60
  41. \font\twlbf=\fontid bx12
  42. \font\twlsl=\fontid sl12
  43. \font\twlit=\fontid ti12
  44. \font\twltt=\fontid tt12
  45. %
  46. % fourteen point fonts
  47. %
  48. \font\frtrm=\fontid r12 scaled \magstep1
  49. \font\frti=cmmi12 scaled \magstep1 \skewchar\frti='177
  50. \font\frtsy=cmsy10 scaled \magstep2 \skewchar\frtsy='60
  51. \font\frtbf=\fontid bx12 scaled \magstep1
  52. \font\frtsl=\fontid sl12 scaled \magstep1
  53. \font\frtit=\fontid ti12 scaled \magstep1
  54. \font\frttt=\fontid tt12 scaled \magstep1
  55. %
  56. % seventeen point fonts
  57. %
  58. \font\svtrm=\fontid r17 
  59. \font\svti=cmmi12 scaled \magstep2 \skewchar\svti='177
  60. \font\svtsy=cmsy10 scaled \magstep3 \skewchar\svtsy='60
  61. \font\svtbf=\fontid bx12 scaled \magstep2
  62. \font\svtsl=\fontid sl12 scaled \magstep2
  63. \font\svtit=\fontid ti12 scaled \magstep2
  64. \font\svttt=\fontid tt12 scaled \magstep2
  65. %
  66. % twenty point fonts
  67. %
  68. \font\twtyrm=\fontid r17 scaled \magstep1
  69. \font\twtyi=cmmi12 scaled \magstep3 \skewchar\twtyi='177
  70. \font\twtysy=cmsy10 scaled \magstep4\skewchar\twtysy='60
  71. \font\twtybf=\fontid bx12 scaled \magstep3
  72. \font\twtysl=\fontid sl12 scaled \magstep3
  73. \font\twtyit=\fontid ti12 scaled \magstep3
  74. \font\twtytt=\fontid tt12 scaled \magstep3
  75. %
  76. % twenty five point fonts
  77. %
  78. \font\twfvrm=\fontid r17 scaled \magstep2
  79. \font\twfvi=cmmi12 scaled \magstep4 \skewchar\twfvi='177
  80. \font\twfvsy=cmsy10 scaled \magstep5 \skewchar\twfvsy='60
  81. \font\twfvbf=\fontid bx12 scaled \magstep4
  82. \font\twfvsl=\fontid sl12 scaled \magstep4
  83. \font\twfvit=\fontid ti12 scaled \magstep4
  84. \font\twfvtt=\fontid tt12 scaled \magstep4
  85. %
  86. % SEVERAL DIFFERENT POINT SIZES
  87. % 
  88. \def\twfvpoint{\Twfvpoint}
  89. \def\Twfvpoint{\normalbaselineskip=30pt
  90. \def\rm{\fam0\twfvrm}%
  91. \def\it{\fam\itfam\twfvit}%
  92. \def\sl{\fam\slfam\twfvsl}%
  93. \def\bf{\fam\bffam\twfvbf}%
  94. \def\smc{\twfvrm}%
  95. \def\mit{\fam 1}%
  96. \def\cal{\fam 2}%
  97. \textfont0=\twfvrm   \scriptfont0=\twtyrm   \scriptscriptfont0=\svtrm
  98. \textfont1=\twfvi    \scriptfont1=\twtyi    \scriptscriptfont1=\svti
  99. \textfont2=\twfvsy   \scriptfont2=\twtysy   \scriptscriptfont2=\svtsy
  100. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  101. \textfont\itfam=\twfvit \scriptfont\itfam=\twtyit
  102. \textfont\slfam=\twfvsl \scriptfont\slfam=\twtysl
  103. \textfont\bffam=\twfvbf \scriptfont\bffam=\twtybf
  104. \scriptscriptfont\bffam=\twtybf
  105. \setbox\strutbox=\hbox{\vrule height 22pt depth 8pt width 0pt}%
  106. \def\tt{\twfvtt}\normalbaselines\rm}
  107. % 
  108. \def\twtypoint{\Twtypoint}
  109. \def\Twtypoint{\normalbaselineskip=25pt
  110. \def\rm{\fam0\twtyrm}%
  111. \def\it{\fam\itfam\twtyit}%
  112. \def\sl{\fam\slfam\twtysl}%
  113. \def\bf{\fam\bffam\twtybf}%
  114. \def\smc{\twtyrm}%
  115. \def\mit{\fam 1}%
  116. \def\cal{\fam 2}%
  117. \textfont0=\twtyrm   \scriptfont0=\svtrm   \scriptscriptfont0=\frtrm
  118. \textfont1=\twtyi    \scriptfont1=\svti    \scriptscriptfont1=\frti
  119. \textfont2=\twtysy   \scriptfont2=\svtsy   \scriptscriptfont2=\frtsy
  120. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  121. \textfont\itfam=\twtyit \scriptfont\itfam=\svtit
  122. \textfont\slfam=\twtysl \scriptfont\slfam=\svtsl
  123. \textfont\bffam=\twtybf \scriptfont\bffam=\svtbf
  124. \scriptscriptfont\bffam=\svtbf
  125. \setbox\strutbox=\hbox{\vrule height 18pt depth 7pt width 0pt}%
  126. \def\tt{\twtytt}\normalbaselines\rm}
  127. % 
  128. \def\svtpoint{\Svtpoint}
  129. \def\Svtpoint{\normalbaselineskip=21pt
  130. \def\rm{\fam0\svtrm}%
  131. \def\it{\fam\itfam\svtit}%
  132. \def\sl{\fam\slfam\svtsl}%
  133. \def\bf{\fam\bffam\svtbf}%
  134. \def\smc{\svtrm}%
  135. \def\mit{\fam 1}%
  136. \def\cal{\fam 2}%
  137. \textfont0=\svtrm   \scriptfont0=\frtrm   \scriptscriptfont0=\twlrm
  138. \textfont1=\svti    \scriptfont1=\frti    \scriptscriptfont1=\twli
  139. \textfont2=\svtsy   \scriptfont2=\frtsy   \scriptscriptfont2=\twlsy
  140. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  141. \textfont\itfam=\svtit \scriptfont\itfam=\frtit
  142. \textfont\slfam=\svtsl \scriptfont\slfam=\frtsl
  143. \textfont\bffam=\svtbf \scriptfont\bffam=\frtbf
  144. \scriptscriptfont\bffam=\frtbf
  145. \setbox\strutbox=\hbox{\vrule height 14.5pt depth 6.5pt width 0pt}%
  146. \def\tt{\svttt}\normalbaselines\rm}
  147. %
  148. \def\frtpoint{\Frtpoint}
  149. \def\Frtpoint{\normalbaselineskip=17pt
  150. \def\rm{\fam0\frtrm}%
  151. \def\it{\fam\itfam\frtit}%
  152. \def\sl{\fam\slfam\frtsl}%
  153. \def\bf{\fam\bffam\frtbf}%
  154. \def\smc{\frtrm}%
  155. \def\mit{\fam 1}%
  156. \def\cal{\fam 2}%
  157. \textfont0=\frtrm   \scriptfont0=\twlrm   \scriptscriptfont0=\eightrm
  158. \textfont1=\frti    \scriptfont1=\twli    \scriptscriptfont1=\eighti
  159. \textfont2=\frtsy   \scriptfont2=\twlsy   \scriptscriptfont2=\eightsy
  160. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  161. \textfont\itfam=\frtit \scriptfont\itfam=\twlit
  162. \textfont\slfam=\frtsl \scriptfont\slfam=\twlsl
  163. \textfont\bffam=\frtbf \scriptfont\bffam=\twlbf
  164. \scriptscriptfont\bffam=\twlbf
  165. \setbox\strutbox=\hbox{\vrule height 12pt depth 5pt width 0pt}%
  166. \def\tt{\frttt}\normalbaselines\rm}
  167. % 
  168. \def\twlpoint{\Twlpoint}
  169. \def\Twlpoint{\normalbaselineskip=14pt
  170. \def\rm{\fam0\twlrm}%
  171. \def\it{\fam\itfam\twlit}%
  172. \def\sl{\fam\slfam\twlsl}%
  173. \def\bf{\fam\bffam\twlbf}%
  174. \def\smc{\twlrm}%
  175. \def\mit{\fam 1}%
  176. \def\cal{\fam 2}%
  177. \textfont0=\twlrm   \scriptfont0=\tenrm   \scriptscriptfont0=\eightrm
  178. \textfont1=\twli    \scriptfont1=\teni    \scriptscriptfont1=\eighti
  179. \textfont2=\twlsy   \scriptfont2=\tensy   \scriptscriptfont2=\eightsy
  180. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  181. \textfont\itfam=\twlit \scriptfont\itfam=\tenit
  182. \textfont\slfam=\twlsl \scriptfont\slfam=\tensl
  183. \textfont\bffam=\twlbf \scriptfont\bffam=\tenbf
  184. \scriptscriptfont\bffam=\tenbf
  185. \setbox\strutbox=\hbox{\vrule height 10pt depth 4pt width 0pt}%
  186. \def\tt{\twltt}\normalbaselines\rm}
  187. %
  188. % 
  189. \def\tenpoint{\Tenpoint}
  190. \def\Tenpoint{\normalbaselineskip=12pt
  191. \def\rm{\fam0\tenrm}%
  192. \def\it{\fam\itfam\tenit}%
  193. \def\sl{\fam\slfam\tensl}%
  194. \def\bf{\fam\bffam\tenbf}%
  195. \def\smc{\tenrm}%
  196. \def\mit{\fam 1}%
  197. \def\cal{\fam 2}%
  198. \textfont0=\tenrm   \scriptfont0=\eightrm   \scriptscriptfont0=\eightrm
  199. \textfont1=\teni    \scriptfont1=\eighti    \scriptscriptfont1=\eighti
  200. \textfont2=\tensy   \scriptfont2=\eightsy   \scriptscriptfont2=\eightsy
  201. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  202. \textfont\itfam=\tenit \scriptfont\itfam=\eightit
  203. \textfont\slfam=\tensl \scriptfont\slfam=\eightsl
  204. \textfont\bffam=\tenbf \scriptfont\bffam=\eightbf
  205. \scriptscriptfont\bffam=\eightbf
  206. \setbox\strutbox=\hbox{\vrule height 8.5pt depth 3.5pt width 0pt}%
  207. \def\tt{\tentt}\normalbaselines\rm}
  208. %
  209. \def\eightpoint{\Eightpoint}
  210. \def\Eightpoint{\normalbaselineskip=10pt
  211. \def\rm{\fam0\eightrm}%
  212. \def\it{\fam\itfam\eightit}%
  213. \def\sl{\fam\slfam\eightsl}%
  214. \def\bf{\fam\bffam\eightbf}%
  215. \def\mit{\fam 1}%
  216. \def\cal{\fam 2}%
  217. \textfont0=\eightrm   \scriptfont0=\eightrm   \scriptscriptfont0=\eightrm
  218. \textfont1=\eighti    \scriptfont1=\eighti    \scriptscriptfont1=\eighti
  219. \textfont2=\eightsy   \scriptfont2=\eightsy   \scriptscriptfont2=\eightsy
  220. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  221. \textfont\itfam=\eightit \scriptfont\itfam=\eightit
  222. \textfont\slfam=\eightsl \scriptfont\slfam=\eightsl
  223. \textfont\bffam=\eightbf \scriptfont\bffam=\eightbf
  224. \scriptscriptfont\bffam=\eightbf
  225. \setbox\strutbox=\hbox{\vrule height 7pt depth 3pt width 0pt}%
  226. \def\tt{\eighttt}\normalbaselines\rm}
  227. %
  228. \def\ninepoint{\Ninepoint}
  229. \def\Ninepoint{\normalbaselineskip=10pt
  230. \def\rm{\fam0\ninerm}%
  231. \def\it{\fam\itfam\nineit}%
  232. \def\sl{\fam\slfam\ninesl}%
  233. \def\bf{\fam\bffam\ninebf}%
  234. \def\mit{\fam 1}%
  235. \def\cal{\fam 2}%
  236. \textfont0=\ninerm   \scriptfont0=\ninerm   \scriptscriptfont0=\ninerm
  237. \textfont1=\ninei    \scriptfont1=\ninei    \scriptscriptfont1=\ninei
  238. \textfont2=\ninesy   \scriptfont2=\ninesy   \scriptscriptfont2=\ninesy
  239. \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
  240. \textfont\itfam=\nineit \scriptfont\itfam=\nineit
  241. \textfont\slfam=\ninesl \scriptfont\slfam=\ninesl
  242. \textfont\bffam=\ninebf \scriptfont\bffam=\ninebf
  243. \scriptscriptfont\bffam=\ninebf
  244. \setbox\strutbox=\hbox{\vrule height 7pt depth 3pt width 0pt}%
  245. \def\tt{\ninett}\normalbaselines\rm}
  246. %
  247. %  GENERAL FOOTNOTES
  248. %
  249. \newcount\footmarkcount
  250. \footmarkcount=0\relax
  251. \def\resetfootnote{\global\footmarkcount=0\relax}
  252. %
  253. \def\footmarknumber{\raise 0.8ex\hbox{\eightpoint\rm\the\footmarkcount}}
  254. %
  255. \def\Footnote#1{\global\advance\footmarkcount by 1\relax
  256. \footnote{\footmarknumber}{#1}}%
  257. %\check
  258. % \TeX book footnote
  259. %
  260. % En cas de panique: couper en deux (une seule note autorisee)
  261. %
  262. \def\markfootnote{{\advance\footmarkcount by 1\relax\footmarknumber}}
  263. %
  264. \def\realfootnote#1{\global\advance\footmarkcount by 1\relax
  265. \vfootnote{{\footmarknumber}#1}}%
  266. %
  267. \def\footnotehsize{}% to enable inserting different \hsize (two columns case)
  268. \def\vfootnote#1{\insert\footins\bgroup\parskip \z@\eightpoint
  269.  \interlinepenalty=\interfootnotelinepenalty
  270.  \splittopskip=\ht\strutbox \advance\splittopskip by 1pt
  271.  \splitmaxdepth=\dp\strutbox \floatingpenalty=20000
  272.  \leftskip=\z@ \rightskip=\z@
  273.  \spaceskip \z@ \xspaceskip \z@
  274.  \eightpoint\footnotehsize\noindent{#1}\footstrut\futurelet\next\fo@t}
  275. %
  276. %\check
  277. %
  278. \def\footnoterule{\vskip-3pt
  279.   \hrule width 2truein \vskip 2.6pt } % the \hrule is .4pt high
  280. %
  281. %
  282. \def\aujourdhui{\space\number\day\space\ifcase\month\or
  283. janvier\or f\'evrier\or mars\or avril\or
  284. mai\or juin\or juillet\or ao\^ut\or septembre\or
  285. octobre\or novembre\or d\'ecembre\fi
  286. \space\number\year}
  287. \def\today{\space\ifcase\month\or
  288. January\or February\or March\or April\or
  289. May\or June\or July\or August\or September\or
  290. October\or November\or December\fi
  291. \space\number\day,\space\number\year}
  292. \def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
  293.     \vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
  294. \def\cenboxit#1{\centerline{\hbox{\boxit{#1}}}}
  295. \def\Item{\medskip\item}
  296. %
  297. \def\nologo{}
  298. %
  299. \def\umero{\raise 0.8ex\hbox{\kern-0.05em\the\scriptfont\fam o}}
  300.  
  301. \let\titremorceau\empty
  302. \def\shorttitle#1{\def\titremorceau{#1}}
  303. \def\title{\shorttitle}
  304. \def\subtitle#1{\def\subt@itremorceau{#1}}
  305. \let\headt@itremorceau\undefined
  306. \def\headtitle#1{\def\headt@itremorceau{#1}}
  307. \def\fulltitle{\headtitle}
  308. \let\othert@itremorceau\empty
  309. \def\othermention#1{\def\othert@itremorceau{#1}}
  310.  
  311. \let\s@hortauthor\empty
  312. \def\shortauthor#1{\def\s@hortauthor{#1}}
  313.  
  314. \def\fullauthor#1{\def\f@ullauthor{#1}}
  315. \def\author{\fullauthor}
  316.  
  317. \newif\ifcopyright
  318.  
  319. \def\outmorceau{\shipout\vbox to 270mm{\tenpoint\vss\pagecontents\vss\line{%
  320. \ifodd\pageno\sl \titremorceau\ \ifx\s@hortauthor\empty
  321.                                 \else(\s@hortauthor)
  322.                                 \fi
  323. \ifcopyright
  324. \rm$\copyright$\fi \hss
  325. \number\pageno
  326. \else\rm\number\pageno\hss\sl \titremorceau\ 
  327.                                 \ifx\s@hortauthor\empty
  328.                                 \else(\s@hortauthor)
  329.                                 \fi
  330. \ifcopyright\rm$\copyright$\fi\fi}}%
  331.  \global\advance\count0 by 1\relax
  332.  \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%
  333.  
  334. \output{\outmorceau}
  335.  
  336. \def\maketitle{\centerline{\enorme \ifx\headt@itremorceau\undefined
  337.   \titremorceau\else\headt@itremorceau\fi}
  338. \medskip
  339. \ifx\subt@itremorceau\undefined\else
  340.   \centerline{\tenpoint\sl \subt@itremorceau}
  341. \medskip
  342. \fi
  343.  
  344.  
  345. \hbox to \hsize{\tenpoint
  346.                 \vtop{\def\\{\hss\egroup\hbox to 0.5\hsize\bgroup\relax}\relax
  347.                       \hbox to 0.5\hsize
  348.                          \bgroup\othert@itremorceau\hss
  349.                          \egroup
  350.                       }\hss
  351.                 \vtop{\def\\{\egroup\hbox to 0.5\hsize\bgroup\relax\hss}\relax
  352.                       \hbox to 0.5\hsize
  353.                          \bgroup\hss\f@ullauthor
  354.                          \egroup
  355.                       }}
  356. \bigskip
  357. }
  358.  
  359. \catcode`\>=\catcode@gt
  360. \catcode`\<=\catcode@lt
  361. \catcode`\@=\catcodeat
  362.  
  363. \hsize=185mm
  364. \vsize=264mm
  365. \hoffset=-1.79cm
  366. \voffset=-1.54cm
  367.  
  368. \endinput
  369.